*Figure A5
preserve
g point=_n in 1/4
foreach v of varlist sum_shame sum_coord sum_resource {
local i = 0
	foreach x of varlist lag_ltroop lag_lobs lag_lpolice sum_un {
	xtreg agg_implem_wo `v' `x' lag_runner infant_wb lag_constraint merged_gdp_growth, fe cluster(pam_caseid)
	local i= `i'+1
	scalar b`v'`i' = _b[`v']
    scalar se`v'`i'= _se[`v']
	}
	matrix `v'B=b`v'1\b`v'2\b`v'3\b`v'4
	svmat `v'B, name(coef`v')
	matrix `v'S=se`v'1\se`v'2\se`v'3\se`v'4
	svmat `v'S, name(se`v')
	g lb`v'=coef`v'-1.96*se`v'
	g ub`v'=coef`v'+1.96*se`v'
	twoway rcap ub`v' lb`v' point, lcolor(black) || (scatter coef`v' point, mcolor(black)), legend(off) ///
	xtitle("Specification") xlab(1(1)3) xlabel(1 "Troops Only" 2 "Observers Only" 3 "Police Only" 4 "All Personnel", angle(45)) ///
	ytitle(Effect of `v') yscale(r(0 12)) ylabel(0(2)12) graphregion(color(white)) saving(`v'.gph, replace)
}
restore

graph combine sum_shame.gph sum_resource.gph sum_coord.gph, graphregion(color(white))
graph export "Figure A5.pdf"
